home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aas.d64 / act 2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  157 lines
  1. 100 REM KANGAROOS(ACT II) BY DENNIS DUNK
  2. 110 IF A=0 THEN A=1:LOAD"THE GREAT ESCAPE",8,1
  3. 120 SYS 37120
  4. 130 POKE53280,0:POKE53281,5
  5. 140 PRINT"[147][146]";
  6. 150 FOR I=1TO24:PRINT"                                        [146]";:NEXT
  7. 160 P=2040:V=53248:REM P=POINTER V=VIC
  8. 170 POKEV+23,4:POKEV+29,4:POKEV+16,1:POKEV+0,9:POKEV+1,221
  9. 180 POKEV+16,1:POKEV+2,72:POKEV+3,221
  10. 190 POKEV+41,12:POKEV+42,4:POKEV+43,7:POKEV+45,1
  11. 200 POKEP+3,180:POKEP+4,180:POKEP+6,163
  12. 210 POKEV+21,95:REM TURN ON SPRITES #  0-4 & 6
  13. 220 Y=199:X=0:REM BIG ROO
  14. 230 POKEP+2,149
  15. 240 FORK=XTOX+10:POKEV+4,K:POKEV+6,K+42:POKEV+8,K+18:POKEV+12,K+30
  16. 250 FOR D=1TO10:NEXT D:NEXTK:X=X+10
  17. 260 C=0:REM UP
  18. 270 FORK=XTOX+13:POKEV+4,K:POKEV+6,K+18:POKEV+8,K+42:POKEV+12,K+30
  19. 280 GOSUB1630:IF X=255 THEN X=0:POKEV+16,79
  20. 290 Y=Y-1:POKEV+5,Y:POKEV+7,Y-30:POKEV+9,Y-30:POKEV+13,Y-8:NEXTK:X=X+13
  21. 300 REM DOWN
  22. 310 FORK=XTOX+13:POKEV+4,K:POKEV+6,K+18:POKEV+8,K+42:POKEV+12,K+30
  23. 320 GOSUB1630:IF X=255 THEN X=0:POKEV+16,79
  24. 330 Y=Y+1:POKEV+5,Y:POKEV+7,Y-31:POKEV+9,Y-31:POKEV+13,Y-9:NEXTK:X=X+13
  25. 340 C=C+1:GOSUB1640
  26. 350 IF C<7 THEN 270
  27. 360 B3=X+18
  28. 370 FORK=XTOX+20:POKEV+4,K:POKEV+6,K+42:POKEV+8,K+18:POKEV+12,K+30
  29. 380 POKEV+42,7:POKEV+43,4:REM *BALLOONS TRADED POSITIONS-NO EXPLANATION
  30. 390 GOSUB1620:NEXTK:X=X+20
  31. 400 KB=K+18:BX=X
  32. 410 SN=236:C=0:REM TURN TO GET BALLOON
  33. 420 SN=SN+1:POKEP+0,SN:C=C+1:GOSUB1640
  34. 430 IF C<7 THEN 420
  35. 440 POKEP+0,155:GOSUB1640:X=9
  36. 450 FORK=XTOX+5:POKEV+0,K:NEXTK
  37. 460 FORK=XTOX-4STEP-1:POKEV+0,K:GOSUB1620:Y=Y-1:POKEV+1,Y:NEXTK:REM UP
  38. 470 X=X-4:POKEV+21,223
  39. 480 C=0:SN=139
  40. 490 SN=SN+1:POKEP+6,SN:POKEV+8,(PEEK(V+8)+3):C=C+1:GOSUB1630
  41. 500 POKEV+12,(PEEK(V+12)-1)
  42. 510 IF C<3  THEN 490
  43. 520 POKEP+6,176
  44. 530 POKEV+16,1+8+128:POKEV+6,0
  45. 540 POKEV+46,1:POKEP+7,176:POKEV+14,0:POKEV+15,12:POKEV+21,223:REM SPRITE#7
  46. 550 FORK=XTOX+8:POKEV+0,K+1:POKEV+6,K-5:POKEV+14,K-5:GOSUB1630:REM DOWN
  47. 560 Y=Y+1:POKEV+1,Y:POKEV+7,Y-31:POKEV+15,Y-9:NEXTK
  48. 570 X=X+8:B3=PEEK(V+8)
  49. 580 SN=255:C=0:REM TURN BACK W/BALLOON
  50. 590 POKEV+16,137:POKEV+13,(PEEK(V+13)+6):POKEV+9,(PEEK(V+9)+6)
  51. 600 SN=SN-1:POKEP+2,SN:POKEV+8,B3:POKEV+12,B3:C=C+1:B3=B3-3:GOSUB1640
  52. 610 IF SN>245 THEN 600
  53. 620 POKEP+2,155
  54. 630 B3=B3+2:POKEV+8,B3:POKEV+12,B3
  55. 640 POKEP+2,155:GOSUB1640
  56. 650 REM:POKEV+13,(PEEK(V+13)+2):POKEV+9,(PEEK(V+9)+2)
  57. 660 B3=B3-1:POKEV+12,B3-1:POKEV+8,B3-1
  58. 670 FORK=XTOX+1:POKEV+0,K+3:POKEV+6,K-5:POKEV+14,K-5:REM UP UP & AWAY
  59. 680 GOSUB1630
  60. 690 Y=Y-3:POKEV+1,Y:POKEV+7,Y-31:POKEV+15,Y-9:NEXTK:X=X+1
  61. 700 IF Y>36 THEN 670
  62. 710 POKEV+21,86
  63. 720 C=0:X=PEEK(V+4):Y=PEEK(V+5):REM UP
  64. 730 FORK=XTOX-13STEP-1:POKEV+4,K:POKEV+8,K-3:POKEV+12,K-3:GOSUB1630
  65. 740 Y=Y-1:POKEV+5,Y:POKEV+9,Y-28:POKEV+13,Y-6:NEXTK:X=X-13
  66. 750 REM DOWN
  67. 760 FORK=XTOX-13STEP-1:POKEV+4,K:POKEV+8,K-3:POKEV+12,K-3:GOSUB1630
  68. 770 Y=Y+1:POKEV+5,Y:POKEV+9,Y-28:POKEV+13,Y-6:NEXTK:X=X-13
  69. 780 C=C+1:GOSUB1640
  70. 790 IF C<4 THEN 730
  71. 800 Y=Y+1:POKEV+5,Y:POKEV+9,Y-29:POKEV+13,Y-7
  72. 810 SN=255:C=0:REM TURN TO GET BALLOON
  73. 820 SN=SN-1:POKEP+1,SN:C=C+1:GOSUB1640
  74. 830 IF C<3 THEN 820
  75. 840 POKEP+1,149:GOSUB1640
  76. 850 X=72
  77. 860 FORK=XTOX+20:POKEV+2,K:GOSUB1630:NEXTK:X=X+20
  78. 870 FORK=XTOX+4:POKEV+2,K:GOSUB1630:Y=Y-1:POKEV+3,Y:NEXTK:X=X+4:REM UP
  79. 880 C=0
  80. 890 FORK=XTOX-8STEP-1:POKEV+2,K-6:POKEV+8,K:POKEV+12,K:GOSUB1630:REM DOWN
  81. 900 Y=Y+1:POKEV+3,Y:POKEV+9,Y-31:POKEV+13,Y-9:NEXTK
  82. 910 SN=155:C=0
  83. 920 SN=SN-1:POKEP+2,SN:GOSUB1640:C=C+1
  84. 930 IF C<5 THEN 920
  85. 940 POKEP+2,216:GOSUB1640
  86. 950 POKEP+2,215:GOSUB1640
  87. 960 POKEP+2,255:GOSUB1640
  88. 970 SN=211:C=0
  89. 980 SN=SN-1:POKEP+2,SN:GOSUB1640:C=C+1
  90. 990 IF C<3 THEN 980
  91. 1000 X=PEEK(V+2)
  92. 1010 FORK=XTOX+1:POKEV+2,K:POKEV+8,K+7:POKEV+12,K+7:REM UP UP & AWAY
  93. 1020 GOSUB1630
  94. 1030 Y=Y-3:POKEV+3,Y:POKEV+9,Y-31:POKEV+13,Y-9:NEXTK:X=X+2
  95. 1040 IF Y>36 THEN 1010
  96. 1050 POKE V+21,4
  97. 1060 X=PEEK(V+4):Y=PEEK(V+5):REM BIG ROO ONLY
  98. 1070 FORK=XTOX+20:POKEV+4,K:Y=Y-1:POKEV+5,Y:GOSUB1630:NEXTK:X=X+20
  99. 1080 FORK=XTOX+20:POKEV+4,K:Y=Y+1:POKEV+5,Y:GOSUB1630:NEXTK:X=X+20
  100. 1090 SN=199:C=0
  101. 1100 SN=SN+1:POKEP+2,SN:C=C+1:GOSUB1640
  102. 1110 IF C<7 THEN 1100
  103. 1120 SN=145:C=0
  104. 1130 SN=SN+1:POKEP+2,SN:C=C+1:GOSUB1640
  105. 1140 IF C<4 THEN 1130
  106. 1150 SN=150:C=0
  107. 1160 SN=SN-1:POKEP+2,SN:C=C+1:GOSUB1640
  108. 1170 IF C<7 THEN 1160
  109. 1180 SN=207:C=0
  110. 1190 SN=SN+1:POKEP+2,SN:C=C+1:GOSUB1640
  111. 1200 IF C<3 THEN 1190
  112. 1210 POKEP+2,215:C=C+1:GOSUB1640
  113. 1220 POKEP+2,216:C=C+1:GOSUB1640
  114. 1230 SN=149:C=0
  115. 1240 SN=SN+1:POKEP+2,SN:C=C+1:GOSUB1640
  116. 1250 IF C<7 THEN 1240
  117. 1260 SN=157:C=0
  118. 1270 SN=SN-1:POKEP+2,SN:C=C+1:GOSUB1640
  119. 1280 IF C<7 THEN 1270
  120. 1290 C=0:X=PEEK(V+4):Y=PEEK(V+5):REM UP
  121. 1300 FORK=XTOX-13STEP-1:POKEV+4,K:GOSUB1630
  122. 1310 Y=Y-1:POKEV+5,Y:NEXTK:X=X-13
  123. 1320 FORK=XTOX-13STEP-1:POKEV+4,K:GOSUB1630
  124. 1330 Y=Y+1:POKEV+5,Y:NEXTK:X=X-13
  125. 1340 C=C+1:GOSUB1640
  126. 1350 IF C<5 THEN 1300
  127. 1360 X=PEEK(V+4)
  128. 1370 FORK=XTO0STEP-1:POKEV+4,K:GOSUB1630:NEXTK
  129. 1380 POKE V+21,0:POKEV+16,0:GOSUB1640:GOSUB1640
  130. 1390 P=2040:V=53248:REM P=POINTER V=VIC
  131. 1400 POKEV+41,12:POKEV+42,8:POKEV+43,3:POKEV+44,7:POKEV+14,1:REM COLORS
  132. 1410 POKEV+4,0:POKEV+6,18:POKEV+8,30:POKEV+10,42:POKEV+14,31:REM X
  133. 1420 POKEV+5,200:POKEV+7,174:POKEV+9,174:POKEV+11,174:POKEV+15,195:REM Y
  134. 1430 POKEP+2,146:POKEP+3,180:POKEP+4,180:POKEP+5,180:POKEP+7,164:REM SN
  135. 1440 POKEV+21,188:REM TURN ON SPRITES #  2-5 & 7
  136. 1450 FORK=1TO40:POKEV+4,K:POKEV+6,K+18:POKEV+8,K+30:POKEV+10,K+42:POKEV+14,K+31
  137. 1460 GOSUB1630:NEXTK
  138. 1470 FORK=41TO212:POKEV+4,K:POKEV+6,K+18:POKEV+8,K+30:POKEV+10,K+42
  139. 1480 POKEV+14,K+31:J=K-40
  140. 1490 POKEV+5,200-J:POKEV+7,174-J:POKEV+9,174-J:POKEV+11,174-J:POKEV+15,196-J
  141. 1500 GOSUB1630:NEXTK
  142. 1510 POKEV+21,0
  143. 1520 POKE53280,0:POKE53281,0:POKE646,1
  144. 1530 PRINT"[147]      THE GREAT ESCAPE WAS MADE."
  145. 1540 PRINT"   TIE YOUR KANGAROOS DOWN, MATE!!"
  146. 1550 GOSUB1640:GOSUB1640:GOSUB1640
  147. 1560 PRINT"[158] WOULD YOU LIKE TO SEE THE SHOW AGAIN ?"
  148. 1570 GET A$:IFA$=""THEN1570
  149. 1580 IF A$="Y" THEN PRINT"OK":GOTO1600
  150. 1590 PRINT"[147]          RESTARTING COMPUTER":GOSUB1640:SYS64738
  151. 1600 F$="KANGAROOS":PRINT"[147] LOAD"+CHR$(34)+F$+CHR$(34)+",8": PRINT "RUN"
  152. 1610 A=1:POKE198,4: POKE631,19: POKE632,13: POKE633,13: POKE634,13:END
  153. 1620 FORD=1TO10:NEXTD:RETURN
  154. 1630 FORD=1TO40:NEXTD:RETURN
  155. 1640 FORD=1TO100:NEXTD:RETURN
  156. 1650 POKEV+16,1:POKEV+0,9:POKEV+1,229
  157.